home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / misc / amag / AM9410_6.lha / Battle Field Creator / Install_HD < prev    next >
Text File  |  1994-09-19  |  4KB  |  160 lines
  1. (makeassign "BFC" (pathonly @icon))
  2.  
  3. (set dir
  4.       (askdir
  5.            (prompt "In welchem Verzeichnis soll BFC installiert werden ?")
  6.            (help @askdir-help)
  7.            (default "DH0:")
  8.        )
  9. )
  10.  
  11. (set dir (expandpath dir))
  12.  
  13.  
  14. (copyfiles
  15.         (source "BFC:DATA")
  16.         (dest dir)
  17.         (choices "BFC.info")
  18. )
  19.  
  20. (set dir (tackon dir "BFC"))
  21. (makedir dir)
  22.  
  23. (makedir (tackon dir "MAPS"))
  24.  
  25.  
  26. (copyfiles
  27.         (prompt "Kopiere Dateien nach %s" dir)
  28.         (source "BFC:FONTS")
  29.         (dest "FONTS:")
  30.         (choices "BIC.font")
  31. )
  32.  
  33. (copyfiles
  34.         (prompt "Kopiere Dateien nach %s" dir)
  35.         (source "BFC:FONTS/BIC")
  36.         (dest "FONTS:BIC")
  37.         (choices "7" "9")
  38. )
  39.  
  40. (copyfiles
  41.         (prompt "Kopiere Hauptprogramm nach %s" dir)
  42.         (source "BFC:")
  43.         (dest dir)
  44.         (choices "BFC")
  45. )
  46.  
  47. (copyfiles
  48.         (dest dir)
  49.         (source "BFC:")
  50.         (choices "BFC:DATA/Battle Field Creator.info")
  51. )
  52.  
  53. (set bi2
  54.         (askoptions
  55.                 (prompt "Welche Disketten besitzen Sie ?")
  56.                 (help @askoptions-help)
  57.                 (choices "Battle Isle (TM)" "Data Disk 1" "Data Disk 2")
  58.                 (default 1)
  59.         )
  60. )
  61.  
  62. (set bi
  63.         (askoptions
  64.                 (prompt "Welche Disketten sind bereits installiert ?")
  65.                 (help @askoptions-help)
  66.                 (choices "Battle Isle (TM)" "Data Disk 1" "Data Disk 2")
  67.                 (default bi2)
  68.         )
  69. )
  70.  
  71.  
  72. (if (= (BITAND bi 1) 1)
  73.         ((set Pfad1 (askdir
  74.                         (prompt "Bitte Battle Isle (TM) Verzeichnis angeben")
  75.                         (help @askdir-help)
  76.                         (default "DH0:BlueByte/BattleIsle")
  77.                     )
  78.         )
  79.         (set zz1 ("Assign BI2: \"%s\"\n" Pfad1))
  80.         (set z1 ("Assign Computer: \"%s\"\nAssign LIB0: \"%s\"\n" (tackon Pfad1 "MAP") (tackon Pfad1 "LIB")))
  81.         )
  82. )
  83. (if (= (BITAND bi 2) 2)
  84.         ((set zz2 ("Assign BI6: \"%s\"\n" Pfad1))
  85.         (set z1 ("Assign Computer: \"%s\"\nAssign LIB0: \"%s\"\n" (tackon Pfad1 "MAP_N") (tackon Pfad1 "LIB_N")))
  86.          (set z2 ("Assign LIB1: \"%s\"\nAssign LIBe: \"%s\"\n" (tackon Pfad1 "LIB_W") (tackon Pfad1 "LIB")))
  87.         )
  88. )
  89. (if (= (BITAND bi 4) 4)
  90.         (
  91.         (set Pfad3 (askdir
  92.                         (prompt "Wo ist die Data Disk 2 installiert ?")
  93.                         (help @askdir-help)
  94.                         (default "DH0:BlueByte/Moon")
  95.                     )
  96.         )
  97.         (if (= (BITAND bi 1) 0)
  98.                 (
  99.                 (set z1 ("Assign DD2: \"%s\"\nAssign Computer: \"%s\"\n" Pfad3 (tackon Pfad3 "MAP")))
  100.                 )
  101.         )
  102.         (set z3 ("Assign DD2: \"%s\"\nAssign LIB2: \"%s\"\n" Pfad3 (tackon Pfad3 "LIB")))
  103.         )
  104. )
  105.  
  106. (set Libs (BITAND (BITNOT bi) bi2))
  107.  
  108. (if (= (BITAND LIBS 1) 1)
  109.         ((makedir (tackon dir "LIB0"))
  110.         (makedir (tackon dir "Computer"))
  111.         (set z1 ("Assign Computer: \"%s\"\nAssign LIB0: \"%s\"\n" (tackon dir "Computer") (tackon dir "LIB0")))
  112.         (copyfiles
  113.                 (source "BI2:LIB")
  114.                 (dest (tackon dir "LIB0"))
  115.                 (choices "Part.Lib" "Part.Tab" "Unit.Lib" "Unit.Tab")
  116.  
  117.         )
  118.         (copyfiles
  119.                 (source "BI2:MAP")
  120.                 (dest (tackon dir "Computer"))
  121.                 (pattern "#?.com")
  122.         )
  123.         )
  124. )
  125.  
  126. (if (= (BITAND Libs 2) 2)
  127.         ((makedir (tackon dir "LIB1"))
  128.         (set z2("Assign LIB1: \"%s\"\n" (tackon dir "LIB1")))
  129.         (copyfiles
  130.                 (source "BI6:LIB")
  131.                 (dest (tackon dir "LIB1"))
  132.                 (choices "Part.Lib" "Part.Tab")
  133.         )
  134.         )
  135. )
  136.  
  137. (if (= (BITAND Libs 4) 4)
  138.         ((makedir (tackon dir "LIB2"))
  139.         (set z3 ("Assign LIB2: \"%s\"\n" (tackon dir "LIB2")))
  140.         (copyfiles
  141.                 (source "DD2:LIB")
  142.                 (dest (tackon dir "LIB2"))
  143.                 (choices "Part.Lib" "Unit.Lib")
  144.         )
  145.         )
  146.  
  147. )
  148.  
  149. (textfile
  150.         (dest (tackon dir "Battle Field Creator"))
  151.         (append ("Assign BFC: \"%s\"\n" dir))
  152.         (append zz1)
  153.         (append zz2)
  154.         (append z1)
  155.         (append z2)
  156.         (append z3)
  157.         (append ("\"%s\"" (tackon dir "BFC")))
  158. )
  159.  
  160.